home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / cubes1.bas < prev    next >
BASIC Source File  |  1992-05-06  |  2KB  |  63 lines
  1. 10    rem 3D CUBES Version 1.0 11/9/85
  2. 12    rem From Atari version - Compute! Magazine
  3. 14    rem Amiga version by R. Grokett20    randomize -1
  4. 30    sq%=50
  5. 40    screen 0,4,0
  6. 50    ?"    3D Cubes -- Version 1.0"
  7. 60    ?:?:?:?"Press:"
  8. 70    ?
  9. 80    ?" (S)ize..........Change cube size"
  10. 90    ?" (C)olor.........Change cube color"
  11. 100   ?" <RETURN>........Clear screen"
  12. 110   ?" <ESC>...........Exit from CUBES"
  13. 120   ?:?:?:?:?:?:?:?:?:?:?:?"Press <RETURN> to begin!";
  14. 130   getkey key$
  15. 140   GOSUB 550
  16. 150   scnclr
  17. 160   rgb 0,0,0,0
  18. 170   rgb 1,0,0,0
  19. 180   rgb 2,0,0,0
  20. 190   GOSUB 320
  21. 200   REM MAIN
  22. 210   x%=rnd(1)*320:y%=rnd(1)*200
  23. 250   get key$
  24. 260   IF KEY$="c" THEN GOSUB 320
  25. 270   if key$=chr$(27) then 610
  26. 280   if key$="s" then gosub 540
  27. 290   if key$=chr$(13) then 150
  28. 300   GOSUB 400
  29. 310   GOTO 210
  30. 320   REM COLOR CHANGE
  31. 330   c1%=(rnd(1)*14)+2
  32. 340   c2%=(rnd(1)*14)+2
  33. 350   c3%=(rnd(1)*14)+2
  34. 360   rgb 3,c1%,c2%,c3%
  35. 370   rgb 4,c1%-1,c2%-1,c3%-1
  36. 380   rgb 5,c1%-2,c2%-2,c3%-2
  37. 390   RETURN 
  38. 400   rem PLOT
  39. 410   pena 3
  40. 420   FOR I%=0 TO SQ%
  41. 430   DRAW (x%,y%+i% to X%+SQ%,Y%+I%)
  42. 440   NEXT I%
  43. 450   pena 4
  44. 460   FOR I%=1 TO INT(3*SQ%)/5
  45. 470   draw (X%+I%,Y%-I% TO X%+I%+SQ%,Y%-I%)
  46. 480   NEXT I%
  47. 490   pena 5
  48. 500   FOR I%=1 TO INT(3*SQ%)/5
  49. 510   draw (X%+SQ%+I%,Y%-I% TO X%+SQ%+I%,Y%+SQ%-I%+1)
  50. 520   NEXT I%
  51. 530   RETURN 
  52. 540   REM CUBE SIZE
  53. 550   rem
  54. 560   sq%=sq%-5
  55. 570   IF SQ%<5 then sq%=50
  56. 580   RETURN
  57. 610   rem EXIT
  58. 620   rgb 0,6,9,15
  59. 630   rgb 1,0,0,0
  60. 640   rgb 2,15,15,15
  61. 650   scnclr
  62. 660   end
  63.